home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / demos / mcademo2.zip / COMPFUNC.MCD / COMPFUNC.MCD
Text File  |  1991-06-12  |  3KB  |  127 lines
  1. .MCD 30001 1 74
  2. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  3. .CMD SET ORIGIN 0
  4. .CMD SET TOL 0.001000000000000
  5. .CMD SET PRNCOLWIDTH 8
  6. .CMD SET PRNPRECISION 4
  7. .CMD PRINT_SETUP 1.200000 0
  8. .CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
  9. .CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
  10. .CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
  11. .CMD DEFINE_FONTSTYLE_NAME fontID=3 name=Greek^Variables
  12. .CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
  13. .CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
  14. .CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
  15. .CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
  16. .CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
  17. .CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
  18. .CMD DEFINE_FONTSTYLE fontID=0 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  19. .CMD DEFINE_FONTSTYLE fontID=1 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  20. .CMD DEFINE_FONTSTYLE fontID=2 family=Helv points=10 bold=0 italic=0 underline=0
  21. .CMD DEFINE_FONTSTYLE fontID=3 family=Symbol points=10 bold=0 italic=0 underline=0
  22. .CMD DEFINE_FONTSTYLE fontID=4 family=Helv points=10 bold=0 italic=0 underline=0
  23. .CMD DEFINE_FONTSTYLE fontID=5 family=Courier points=10 bold=0 italic=0 underline=0
  24. .CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0
  25. .CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0
  26. .CMD DEFINE_FONTSTYLE fontID=8 family=Terminal points=0 bold=0 italic=0 underline=0
  27. .CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0
  28. .CMD UNITS U=1
  29. .TXT 2 1 0 0
  30. C a324,350,83
  31. {\rtf1\ansi \deff0
  32. {\fonttbl
  33. {\f0\fnil Helv;}
  34. }
  35. {\plain {}{\f0 \fs24 \b \i \ulnone }{}{\f0 
  36. \fs24 \b \i \ulnone VISUALIZING A COMPLEX
  37.  FUNCTION}{}}
  38. }
  39. .TXT 4 0 0 0
  40. C a544,546,156
  41. {\rtf1\ansi \deff0
  42. {\fonttbl
  43. {\f0\fnil Helv;}
  44. }
  45. {\plain {}{This application helps visualize
  46.  a function of one complex variable\par 
  47. using MathCAD's surface plots. We plot the
  48.  real and imaginary parts\par separately.}{}}
  49. }
  50. .EQN 8 3 0 0
  51. f(z):\(z)
  52. .TXT 2 22 0 0
  53. C a224,226,35
  54. {\rtf1\ansi \deff0
  55. {\fonttbl
  56. {\f0\fnil Helv;}
  57. }
  58. {\plain {}{. . . function to be plotted}{}}
  59. }
  60. .EQN 6 -22 0 0
  61. N:12
  62. .TXT 0 22 0 0
  63. C a312,314,46
  64. {\rtf1\ansi \deff0
  65. {\fonttbl
  66. {\f0\fnil Helv;}
  67. }
  68. {\plain {}{. . . number of grids in each
  69.  direction}{}}
  70. }
  71. .EQN 4 -22 0 0
  72. j:0;N
  73. .EQN 3 0 0 0
  74. k:0;N
  75. .EQN 4 0 0 0
  76. corner1:-6-6i
  77. .TXT 0 22 0 0
  78. C a168,170,28
  79. {\rtf1\ansi \deff0
  80. {\fonttbl
  81. {\f0\fnil Helv;}
  82. }
  83. {\plain {}{. . . corners of grid}{}}
  84. }
  85. .EQN 3 -22 0 0
  86. corner2:6+6i
  87. .EQN 4 0 0 0
  88. incr:(corner2-corner1)/(N)
  89. .EQN 8 0 0 0
  90. (z)[(j,k):corner1+Re(incr)*j{54}Im(incr)*k*1.0i
  91. .TXT 0 26 0 0
  92. C a152,154,26
  93. {\rtf1\ansi \deff0
  94. {\fonttbl
  95. {\f0\fnil Helv;}
  96. }
  97. {\plain {}{. . . domain points}{}}
  98. }
  99. .EQN 10 -26 0 0
  100. z2:(f(z)){49}
  101. .TXT 2 26 0 0
  102. C a144,146,25
  103. {\rtf1\ansi \deff0
  104. {\fonttbl
  105. {\f0\fnil Helv;}
  106. }
  107. {\plain {}{. . . range points}{}}
  108. }
  109. .EQN 6 -26 0 0
  110. R:Re(z2)
  111. .TXT 0 26 0 0
  112. C a248,250,92
  113. {\rtf1\ansi \deff0
  114. {\fonttbl
  115. {\f0\fnil Helv;}
  116. }
  117. {\plain {}{. . . these matrices hold the\par 
  118. real and imaginary part of the\par function
  119.  to be plotted}{}}
  120. }
  121. .EQN 3 -26 0 0
  122. I:Im(z2)
  123. .EQN 6 -2 0 0
  124. R{10 35 0 60 20    30    30 0 1 1 2}{57}
  125. .EQN 0 36 0 0
  126. I{10 35 0 60 20    30    30 0 1 1 2}{57}
  127.